home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Control Panel Hide 11.xpl < prev    next >
Text File  |  2001-12-25  |  3KB  |  107 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #5"
  6. "VERSION"="3.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "QuickTime" applet [16-bit, 2.x]"
  9. "TEXT 2"="Display "QuickTime" applet [32-bit, 2.x]"
  10. "TEXT 3"="Display "QuickTime" applet [3.x and 4.x]"
  11. "TEXT 4"="Display "Ontrack WinCustomizer" applet"
  12. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  13. "DESCRIPTION 2"="QuickTime plays Apple QuickTime movies and Macintosh .PIC image files on IBM compatibles [Windows machines]."
  14. "DESCRIPTION 3"="It can be downloaded for free from http://www.apple.com/quicktime/ and Ontrack WinCustomizer comes with Ontrack SystemSuite.  See:  http://www.ontrack.com/"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to CptSiskoX for the QuickTime Control Panel icon plug-ins and the Mijenix WinCustomizer one. :)"
  20.  
  21. '******************************************************************
  22. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  23. '******************************************************************
  24. sVals=Array("qtw16.cpl","qtw32.cpl","QuickTime.cpl","mxctlpnl.cpl")
  25. '******************************************************************
  26. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  27. '******************************************************************
  28. sPath="HKCU\Control Panel\Don't Load\"
  29. sFile="CONTROL.INI"
  30. sFileSec="Don't Load"
  31.  
  32.  
  33. SUB Plugin_Initialize
  34.  for i=0 to UBound(sVals)
  35.      Call ReadIt(i+1,sVals(i)) 
  36.  next 
  37. END SUB
  38.  
  39. Sub ReadIt(ITM,VAL)
  40.   If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  41.      'old (win32 1/2) INI style...
  42.  
  43.      s=IniReadValue(sFile,sFileSec,VAL)
  44.      if len(s)>0 then
  45.         Call SetUIElement(ITM,false)
  46.      else
  47.         Call SetUIElement(ITM,true)
  48.      end if
  49.  
  50.   else
  51.  
  52.      s=RegReadValue(sPath & VAL)
  53.      if IsEmpty(s)=true then
  54.         Call SetUIElement(ITM,true)
  55.      else
  56.         Call SetUIElement(ITM,false)
  57.      end if
  58.   end if
  59.      
  60. End Sub
  61.  
  62. 'Called when the Plugin should validate the Data the user has entered
  63. SUB Plugin_CheckData(ElementIndex)
  64. END SUB
  65.  
  66. 'Called when the Plugin should apply the changes
  67. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  68.  for i=0 to UBound(sVals)
  69.      Call WriteIt(i+1,sVals(i)) 
  70.  next 
  71.  
  72.  Call IndicateSettingChange()
  73. END SUB
  74.  
  75. Sub WriteIt(ITM,VAL)
  76.  b=GetUIElement(ITM)
  77.  if b=true then
  78.     'Display it
  79.  
  80.     If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  81.        'win32 1/2
  82.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  83.     else
  84.        s=RegReadValue(sPath & VAL)
  85.        if IsEmpty(s)=false then
  86.           Call RegDeleteValue(sPath & VAL)
  87.        end if
  88.     end if
  89.  
  90.  else
  91.    'Hide it
  92.    
  93.    If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  94.       'win32 1/2
  95.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  96.    else
  97.       Call RegWriteValue(sPath & VAL,"1",1) 
  98.    end if
  99.  
  100.  end if   
  101. End Sub
  102.  
  103.  
  104. 'Called when the Plugin is about to be removed from memory
  105. SUB Plugin_Terminate
  106. END SUB
  107.